home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / nhx / gototop.frm < prev    next >
Text File  |  1995-05-08  |  1KB  |  62 lines
  1. VERSION 2.00
  2. Begin Form gototop 
  3.    Caption         =   "Go To Topic"
  4.    ClientHeight    =   2865
  5.    ClientLeft      =   1140
  6.    ClientTop       =   3360
  7.    ClientWidth     =   3060
  8.    Height          =   3270
  9.    Icon            =   GOTOTOP.FRX:0000
  10.    Left            =   1080
  11.    LinkMode        =   1  'Source
  12.    LinkTopic       =   "Form2"
  13.    ScaleHeight     =   2865
  14.    ScaleWidth      =   3060
  15.    Top             =   3015
  16.    Width           =   3180
  17.    Begin CommandButton Command1 
  18.       Caption         =   "GoToIt!"
  19.       Default         =   -1  'True
  20.       Height          =   375
  21.       Left            =   120
  22.       TabIndex        =   1
  23.       Top             =   2400
  24.       Width           =   2775
  25.    End
  26.    Begin ListBox List1 
  27.       Height          =   2175
  28.       Left            =   120
  29.       TabIndex        =   0
  30.       Top             =   120
  31.       Width           =   2775
  32.    End
  33. End
  34.  
  35. Sub Command1_Click ()
  36.     DoGoToTopic
  37. End Sub
  38.  
  39. Sub DoGoToTopic ()
  40.     a$ = list1.text
  41.     OldTopic% = CurrentTopic%
  42.     NewTopic% = FindTopic(a$)
  43.     If NewTopic% Then
  44.         HideTopic OldTopic%
  45.         Unload GoToTop
  46.         ShowTopic NewTopic%
  47.         End If
  48.     
  49. End Sub
  50.  
  51. Sub Form_Load ()
  52.     For i% = 0 To TopicCount%
  53.         a$ = MainForm.TextTopic(i%).tag
  54.         list1.AddItem a$
  55.         Next i%
  56. End Sub
  57.  
  58. Sub List1_DblClick ()
  59. DoGoToTopic
  60. End Sub
  61.  
  62.